﻿Public Class fORMULARIO_Restaurante
    Inherits System.Windows.Forms.Form

    Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        picImagen.Image = System.Drawing.Bitmap.FromFile("J0148798.jpg")
    End Sub
    Private Sub btncarta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncarta.Click
        If instancia1.IsDisposed = True Then
            instancia1 = New frmPlatillos

        End If
        instancia1.Show()

    End Sub

    Private Sub btncarta_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncarta.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("PH02845G.gif")
    End Sub

    Private Sub btnreservacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreservacion.Click
        If instancia3.IsDisposed = True Then
            instancia3 = New frmreservacion
        End If
        instancia3.Show()
    End Sub

    Private Sub btnreservacion_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnreservacion.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("J0101861.bmp")
    End Sub

    Private Sub btnpedido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpedido.Click
        If instancia2.IsDisposed = True Then
            instancia2 = New frmpedido

        End If
        instancia2.Show()



    End Sub

    Private Sub btnpedido_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnpedido.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("AG00021_.gif")
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        End
    End Sub

    Private Sub btnsalir_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsalir.MouseEnter
        picImagen.Image = System.Drawing.Bitmap.FromFile("AG00092_.gif")

    End Sub

    Private Sub picImagen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picImagen.Click

    End Sub
End Class

